Application.ExecuteCommand("Quick Filter Nets")
Application.StatusBarText = "Select Nets"
'ApplicationMode=1 ' route
dim ws : set ws = CreateObject("WScript.Shell")
dim varName : varName = "ApplicationMode"
dim varValue : varValue = 1 
ws.RegWrite "HKEY_CURRENT_USER\Software\MyApp\PADS\" & varName, varValue, "REG_EXPAND_SZ"
set ws = nothing